Attribute VB_Name = "modConfigureKey"
Sub playWithTextVisualization()

    Application.Selection
    
    
    



End Sub



Sub StandardKeyAndCapo(ByVal intKey As String, _
    ByRef intCapo As Integer)
    
    Select Case intKey
        Case 1 'C
            intCapo = 0 'C
        Case 2 'C#
            intCapo = 1 'C
        Case 3 'D
            intCapo = 0 'D
        Case 4 'D#
            intCapo = 1 'D
        Case 5 'E
            intCapo = 2 'D
        Case 6 'F
            intCapo = 3 'D
        Case 7 'F#
            intCapo = 2 'E
        Case 8 'G
            intCapo = 0 'G
        Case 9 'G#
            intCapo = 1 'G
        Case 10 'A
            intCapo = 2 'G
        Case 11 'Bb
            intCapo = 3 'G
        Case 12 'B
            intCapo = 2 'A
    End Select
End Sub

Sub StandardSecondKeyAndCapo(ByVal intKey As String, _
    ByRef intCapo As Integer)
    'lowest one matching one of {a,c,d,e,g}
    Select Case intKey
        Case 1 'C
            intCapo = 3 'A
        Case 2 'C#
            intCapo = 4 'A
        Case 3 'D
            intCapo = 2 'C
        Case 4 'D#
            intCapo = 3 'C
        Case 5 'E
            intCapo = 0 'E
        Case 6 'F
            intCapo = 1 'E
        Case 7 'F#
            intCapo = 4 'D
        Case 8 'G
            intCapo = 3 'E
        Case 9 'G#
            intCapo = 4 'E
        Case 10 'A
            intCapo = 0 'A
        Case 11 'Bb
            intCapo = 1 'A
        Case 12 'B
            intCapo = 4 'G
    End Select
End Sub

Sub StandardThirdKeyAndCapo(ByVal intKey As String, _
    ByRef intCapo As Integer)
    'lowest one matching one of {a,c,d,e,g}
    Select Case intKey
        Case 1 'C
            intCapo = 5 'G
        Case 2 'C#
            intCapo = 6 'G
        Case 3 'D
            intCapo = 5 'A
        Case 4 'D#
            intCapo = 6 'A
        Case 5 'E
            intCapo = 4 'C
        Case 6 'F
            intCapo = 5 'C
        Case 7 'F#
            intCapo = 6 'C
        Case 8 'G
            intCapo = 5 'D
        Case 9 'G#
            intCapo = 6 'D
        Case 10 'A
            intCapo = 5 'E
        Case 11 'Bb
            intCapo = 6 'E
        Case 12 'B
            intCapo = 7 'E
    End Select
End Sub

Sub FirstKeyAndCapo(ByVal intKey As String, _
    ByRef intCapo As Integer)
    'lowest one matching one of {a,c,d,e}
    Select Case intKey
        Case 1 'C
            intCapo = 0 'C
        Case 2 'C#
            intCapo = 1 'C
        Case 3 'D
            intCapo = 0 'D
        Case 4 'D#
            intCapo = 1 'D
        Case 5 'E
            intCapo = 0 'E
        Case 6 'F
            intCapo = 1 'E
        Case 7 'F#
            intCapo = 2 'E
        Case 8 'G
            intCapo = 0 'G
        Case 9 'G#
            intCapo = 1 'G
        Case 10 'A
            intCapo = 0 'A
        Case 11 'Bb
            intCapo = 1 'A
        Case 12 'B
            intCapo = 2 'A
    End Select
End Sub

Sub SecondKeyAndCapo(ByVal intKey As String, _
    ByRef intCapo As Integer)
    'lowest one matching one of {a,c,d,e,g}
    Select Case intKey
        Case 1 'C
            intCapo = 3 'A
        Case 2 'C#
            intCapo = 4 'A
        Case 3 'D
            intCapo = 2 'C
        Case 4 'D#
            intCapo = 3 'C
        Case 5 'E
            intCapo = 2 'D
        Case 6 'F
            intCapo = 3 'D
        Case 7 'F#
            intCapo = 4 'D
        Case 8 'G
            intCapo = 3 'E
        Case 9 'G#
            intCapo = 4 'E
        Case 10 'A
            intCapo = 2 'G
        Case 11 'Bb
            intCapo = 3 'G
        Case 12 'B
            intCapo = 4 'G
    End Select
End Sub
Sub ThirdKeyAndCapo(ByVal intKey As String, _
    ByRef intCapo As Integer)
    'lowest one matching one of {a,c,d,e,g}
    Select Case intKey
        Case 1 'C
            intCapo = 5 'G
        Case 2 'C#
            intCapo = 6 'G
        Case 3 'D
            intCapo = 5 'A
        Case 4 'D#
            intCapo = 6 'A
        Case 5 'E
            intCapo = 4 'C
        Case 6 'F
            intCapo = 5 'C
        Case 7 'F#
            intCapo = 6 'C
        Case 8 'G
            intCapo = 5 'D
        Case 9 'G#
            intCapo = 6 'D
        Case 10 'A
            intCapo = 5 'E
        Case 11 'Bb
            intCapo = 6 'E
        Case 12 'B
            intCapo = 7 'E
    End Select
End Sub
